home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 April / macformat-049.iso / mac / Demos / Print Artist Demo / PA12-Mac.Dxr / 00431.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  718 b   |  25 lines
  1. on printItFlash
  2.   global flashTime, flashLoop
  3.   set oldDelimit to the itemDelimiter
  4.   set the itemDelimiter to ":"
  5.   if flashLoop = 1 then
  6.     nothing()
  7.   else
  8.     set flashTime to value(char 1 of item 3 of the long time & char 2 of item 3 of the long time)
  9.     set flashLoop to 1
  10.   end if
  11.   if value(value(char 1 of item 3 of the long time & char 2 of item 3 of the long time) - flashTime) = 2 then
  12.     set flashLoop to 0
  13.     set flashTime to 0
  14.     if the puppet of sprite 8 = 0 then
  15.       puppetSprite(8, 1)
  16.       set the memberNum of sprite 8 to the number of member "print2"
  17.       updateStage()
  18.       wait(random(30))
  19.     else
  20.       puppetSprite(8, 0)
  21.     end if
  22.   end if
  23.   set the itemDelimiter to oldDelimit
  24. end
  25.